Option Explicit
Sub Q_Sample030()
    ']wޥζMicrosoft Shell Controls And Automation
    Dim mySh As Shell32.Shell
    Dim i  As Long
    Set mySh = CreateObject("Shell.Application")
    For i = 0 To 50
        On Error Resume Next
        With mySh.NameSpace(i).Items.Item
            Cells(i + 1, 1) = i
            Cells(i + 1, 2) = .Name
            Cells(i + 1, 3) = .Path
        End With
        On Error GoTo 0
    Next
    Set mySh = Nothing						'
End Sub
